#!
use Win32::ODBC;
$odbc_source = "DSN=test";

$db = new Win32::ODBC($odbc_source); # connecting
die if( not defined $db);

# execute SQL statement
my $ins = "'$id','$link','$title','$page_content'";
if ( $db->Sql("INSERT INTO webinf (id,link,title,content) ".
              "Values ($ins)") )
{
    warn $db->Error;
    exit;
}
$db->Close();                   # close connection
